(momentary-string-display): Fix backward test

for whether end of message is off the screen.

diff --git a/lisp/subr.el b/lisp/subr.el
index 683c8e291b28f6e9fe5c487d187e85b3052a41e2..d344754c34b10349c17aa37e758dded68d26d8b9 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -809,7 +809,7 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there."
            (insert-before-markers string)
            (setq insert-end (point))
            ;; If the message end is off screen, recenter now.
-           (if (> (window-end) insert-end)
+           (if (< (window-end) insert-end)
                (recenter (/ (window-height) 2)))
            ;; If that pushed message start off the screen,
            ;; scroll to start it at the top of the screen.